50 REM      ** AIR MILEAGE CHART **
60 REM     WRITTEN BY MAX A. CHAPMAN
70 REM           628 IBIS LANE
80 REM        RENO, NEVADA  89503
90 REM          (702)  747-3306
100 CLR:RESTORE:PRINT"[147][159]":POKE53280,6:POKE53281,6:C2$="":C1$=""
110 PRINT"[150]        [205][169]  WORLD AIR MILES  [223][206][146]"
120 PRINT"[153]    [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
130 PRINT"    [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
140 PRINT"[159]        FROM";
150 INPUTC1$
160 PRINT"          TO";
170 INPUTC2$
180 C$=C1$
190 PRINT"           COMPUTING . . ."
200 READC$,S$,D1,M1,NS$,D2,M2,EW$
210 IFC$="XXX"THENMA$="XXX":GOTO250
220 IFC$<>C1$THEN200
230 MB$=S$
240 D3=D1:M3=M1:D4=D2:M4=M2:N1$=NS$:E1$=EW$
250 RESTORE:C$=C2$
260 READC$,S$,D1,M1,NS$,D2,M2,EW$
270 IFC$="XXX"THEN320
280 IFC$<>C2$THEN260
290 IFMA$="XXX"THEN310
300 GOTO370
310 IFMA$="XXX"THENT$="[145]** "+C1$+" NOT LISTED **"
320 IFC$="XXX"THENT$="[145]** "+C2$+" NOT LISTED **"
330 IFC$="XXX"ANDMA$="XXX"THENT$="[145][145][145]"+C1$+" AND "+C2$
340 GOSUB740
350 IFC$="XXX"ANDMA$="XXX"THENPRINT"          ** NOT LISTED **"
360 FORI=1TO6000:NEXT:GOTO100
370 D5=D1:M5=M1:D6=D2:M6=M2:N2$=NS$:E2$=EW$
380 REM COMPUTE CITY #1
390 D4=(D4+(M4/60))*(null)/180:D3=(D3+(M3/60))*(null)/180
400 K1=SIN(D3):K2=COS(D3)
410 IFE1$="W"THEN430
420 D4=-D4
430 IFN1$="N"THEN450
440 K1=-K1
450 REM COMPUTE CITY #2
460 D6=(D6+(M6/60))*(null)/180:D5=(D5+(M5/60))*(null)/180
470 IFE2$="E"THEN500
480 R=ABS(D4-D6)
490 GOTO510
500 R=ABS(D4+D6)
510 IFR<(null)THEN530
520 R=(2*(null))-R
530 IFN2$="N"THEN560
540 K1=-K1
550 REM FIGURE DISTANCE
560 A1=(K1*(SIN(D5)))+(K2*(COS(D5))*(COS(R)))
570 X=((null)/2)-(ATN(A1/((1-A1^2)^.5)))
580 X=INT(69.15*180*X/(null)+.5)
590 PRINT""
600 T$=C1$+", "+MB$+" TO"
610 GOSUB740:PRINT
620 T$=C2$+", "+S$
630 GOSUB740
640 PRINT"[155]":X$=STR$(X)
650 T$="AIR DISTANCE IN MILES:"+X$
660 GOSUB740
670 PRINT"[153]    [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
680 PRINT"    [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
690 PRINT"             ANOTHER? (Y/N)"
700 PRINT"[150]  [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
710 GETQ$:IFQ$=""THEN710
720 IFQ$="Y"THEN100
730 IFQ$<>"N"THEN710
735 GOTO63000
740 CT=40
750 FORI=1TOCT:AS$=AS$+" ":NEXT:T2$=""
760 T1=INT((CT-LEN(T$))/2)
770 IFT1<1THENPRINTT$:RETURN
780 T2$=T2$+LEFT$(AS$,T1)+T$
790 PRINTT2$
800 RETURN
810 DATA ATLANTA,GEORGIA,33,45.2,N,84,23.6,W
820 DATA ANCHORAGE,ALASKA,61,10,N,149,59,W
830 DATA ACAPULCO,MEXICO,16,51,N,99,55,W
840 DATA AKRON,OHIO,41,5,N,81,31,W
850 DATA AMSTERDAM,NETHERLANDS,52,22,N,4,54,E
860 DATA ANAHEIM,CALIFORNIA,33,51,N,117,57,W
870 DATA ASHLAND,OREGON,42,12,N,122,42,W
880 DATA ATHENS,GREECE,37,58,N,23,43,E
890 DATA ATLANTIC CITY,NEW JERSEY,39,22,N,74,26,W
895 DATA ATWATER,CALIFORNIA,37,21,N,120,36,W
900 DATA AUBURN,CALIFORNIA,38,54,N,121,4,W
910 DATA AUSTIN,TEXAS,30,16,N,97,45,W
920 DATA ALBUQUERQUE,NEW MEXICO,35,5,N,106,40,W
930 DATA BERLIN,WEST GERMANY,52,32,N,13,25,E
940 DATA BAKERSFIELD,CALIFORNIA,35,23,N,119,1,W
950 DATA BALTIMORE,MARYLAND,39,17,N,76,37,W
960 DATA BATTLE MOUNTAIN,NEVADA,40,38,N,116,56,W
970 DATA BERKELEY,CALIFORNIA,37,52.2,N,122,16.3,W
980 DATA BOSTON,MASSACHUSETTS,42,21.4,N,71,3.4,W
990 DATA BARSTOW,CALIFORNIA,34,54,N,117,1,W
1000 DATA BATON ROUGE,LOUISIANA,30,23,N,91,11,W
1010 DATA BELFAST,NORTHERN IRELAND,54,35,N,5,55,W
1020 DATA BELLINGHAM,WASHINGTON,48,49,N,122,29,W
1030 DATA BILLINGS,MONTANA,37,4,N,93,33,W
1040 DATA BILOXI,MISSISSIPPI,30,24,N,88,53,W
1050 DATA BIRMINGHAM,ALABAMA,33,31,N,86,49,W
1060 DATA BISHOP,CALIFORNIA,37,22,N,118,24,W
1070 DATA BISMARCK,NORTH DAKOTA,46,48,N,100,47,W
1080 DATA BOISE,IDAHO,43,37,N,116,13,W
1090 DATA BOMBAY,INDIA,18,58,N,72,50,E
1100 DATA BOULDER,COLORADO,40,1,N,105,17,W
1105 DATA BOULDER CITY,NEVADA,35,59,N,114,50,W
1110 DATA BOWLING GREEN,KENTUCKY,37,0,N,86,27,W
1120 DATA BRIDGEPORT,CALIFORNIA,38,10,N,119,13,W
1130 DATA BROWNSVILLE,TEXAS,25,54,N,97,30,W
1140 DATA BURLINGTON,VERMONT,44,29,N,73,13,W
1150 DATA BULLHEAD CITY,ARIZONA,35,9,N,114,34,W
1160 DATA BUFFALO,NEW YORK,42,54,N,78,53,W
1170 DATA BUTTE,MONTANA,46,0,N,112,32,W
1180 DATA CHICAGO,ILLINOIS,41,52.5,N,87,38.4,W
1190 DATA CANTON ISLAND,SOUTH PACIFIC,2,50,S,171,40,W
1200 DATA CARSON CITY,NEVADA,39,10,N,119,46,W
1210 DATA CAIRO,EGYPT,30,3,N,31,15,E
1220 DATA CARACAS,VENEZUELA,10,30,N,66,56,W
1230 DATA CARMEL,CALIFORNIA,36,33,N,121,55,W
1235 DATA CARMICHAEL,CALIFORNIA,38,38,N,121,19,W
1240 DATA CHARLESTON,SOUTH CAROLINA,32,48,N,79,57,W
1250 DATA CHARLOTTE,NORTH CAROLINA,35,14,N,80,50,W
1260 DATA CHATTANOOGA,TENNESSEE,35,3,N,85,19,W
1270 DATA CHICO,CALIFORNIA,39,44,N,121,50,W
1280 DATA CHEYENNE,WYOMING,41,8,N,104,49,W
1290 DATA CHRISTCHURCH,NEW ZEALAND,43,32,S,172,38,E
1295 DATA CITRUS HEIGHTS,CALIFORNIA,38,42,N,121,17,W
1300 DATA CLEVELAND,OHIO,41,30,N,81,41,W
1310 DATA CINCINNATI,OHIO,39,6,N,84,31,W
1320 DATA COLUMBUS,OHIO,39,57,N,83,0,W
1330 DATA CONCORD,CALIFORNIA,37,59,N,122,2,W
1340 DATA COOS BAY,OREGON,43,22,N,124,13,W
1350 DATA CORPUS CHRISTI,TEXAS,27,48,N,97,24,W
1360 DATA CRESCENT CITY,CALIFORNIA,41,45,N,124,12,W
1370 DATA DALLAS,TEXAS,32,47,N,96,48,W
1380 DATA DAVENPORT,IOWA,41,32,N,90,41,W
1390 DATA DAVIS,CALIFORNIA,38,33,N,121,44,W
1400 DATA DAYTONA BEACH,FLORIDA,29,12,N,81,0,W
1410 DATA DAYTON,OHIO,39,45,N,84,15,W
1420 DATA DENVER,COLORADO,39,43,N,105,1,W
1430 DATA DES MOINES,IOWA,41,35,N,93,37,W
1440 DATA DETROIT,MICHIGAN,42,20,N,83,3,W
1450 DATA EDMONTON,ALBERTA,53,33,N,113,28,W
1460 DATA ELKO,NEVADA,40,50,N,115,46,W
1470 DATA EL PASO,TEXAS,31,45,N,106,29,W
1480 DATA ELY,NEVADA,39,15,N,114,53,W
1485 DATA ESCALON,CALIFORNIA,37,48,N,120,60,W
1490 DATA EUGENE,OREGON,44,2,N,123,5,W
1500 DATA EUREKA,CALIFORNIA,40,47,N,124,9,W
1510 DATA FAIRBANKS,ALASKA,64,51,N,147,43,W
1520 DATA FERNLEY,NEVADA,39,36,N,119,15,W
1530 DATA FLAGSTAFF,ARIZONA,35,12,N,111,39,W
1540 DATA FT. SMITH,ARKANSAS,35,23,N,94,25,W
1550 DATA FRESNO,CALIFORNIA,36,45,N,119,45,W
1560 DATA FALLON,NEVADA,39,28,N,118,47,W
1565 DATA GALT,CALIFORNIA,38,15,N,121,18,W
1570 DATA GALVESTON,TEXAS,29,18,N,94,48,W
1580 DATA GARDNERVILLE,NEVADA,38,56,N,119,45,W
1590 DATA GARY,INDIANA,41,36,N,87,20,W
1600 DATA GENEVA,SWITZERLAND,46,12,N,6,9,E
1610 DATA GILA BEND,ARIZONA,32,57,N,112,43,W
1615 DATA GOLDFIELD,NEVADA,37,42,N,117,14,W
1620 DATA GRAND RAPIDS,MICHIGAN,42,58,N,85,40,W
1630 DATA GRANTS PASS,OREGON,42,26,N,123,19,W
1640 DATA GRASS VALLEY,CALIFORNIA,39,13,N,121,4,W
1645 DATA GUSTINE,CALIFORNIA,37,16,N,120,60,W
1650 DATA HONOLULU,HAWAII,21,18.4,N,157,51.6,W
1660 DATA HALIFAX,NOVA SCOTIA,44,39,N,63,36,W
1665 DATA HAPPY CAMP,CALIFORNIA,41,48,N,123,22,W
1670 DATA HARTFORD,CONNECTICUT,41,46,N,72,41,W
1680 DATA HAVAVA,CUBA,23,8,N,82,22,W
1690 DATA HAWTHORNE,NEVADA,38,32,N,118,38,W
1700 DATA HAYWARD,CALIFORNIA,37,40,N,122,5,W
1710 DATA HELENA,MONTANA,46,36,N,112,1,W
1720 DATA HENDERSON,NEVADA,36,2,N,114,59,W
1730 DATA HILO,HAWAII,19,43,N,155,5,W
1740 DATA HOBART,AUSTRALIA,42,53,S,147,19,E
1750 DATA HONG KONG,VICTORIA,22,17,N,114,9,E
1760 DATA HOUSTON,TEXAS,29,46,N,95,22,W
1765 DATA HUGHSON,CALIFORNIA,37,36,N,120,52,W
1770 DATA JACKSONVILLE,FLORIDA,30,20,N,81,40,W
1780 DATA JOHANNESBURG,SOUTH AFRICA,26,15,S,28,0,E
1790 DATA JUNEAU,ALASKA,58,20,N,134,27,W
1800 DATA JACKPOT,NEVADA,41,59,N,114,40,W
1810 DATA KANSAS CITY,MISSOURI,39,5,N,94,35,W
1820 DATA KLAMATH FALLS,OREGON,42,13,N,121,46,W
1830 DATA KNOXVILLE,TENNESSEE,35,58,N,83,56,W
1840 DATA KINGS BEACH,CALIFORNIA,39,14,N,120,1,W
1850 DATA LONDON,ENGLAND,51,30,N,0,0,E
1860 DATA LOS ANGELES,CALIFORNIA,34,3.3,N,118,14.5,W
1865 DATA LAKE MEAD,NEVADA,36,5,N,114,25,W
1870 DATA LAS VEGAS,NEVADA,36,11,N,115,8,W
1880 DATA LANCASTER,CALIFORNIA,34,42,N,118,8,W
1890 DATA LANSING,MICHIGAN,42,43,N,84,34,W
1900 DATA LENINGRAD,SOVIET UNION,59,55,N,30,15,E
1910 DATA LIMA,PERU,12,3,S,77,3,W
1920 DATA LINCOLN,NEBRASKA,40,48,N,96,42,W
1930 DATA LISBON,PORTUGAL,38,43,N,9,8,W
1940 DATA LITTLE ROCK,ARKANSAS,34,44,N,92,15,W
1950 DATA LIVERMORE,CALIFORNIA,37,41,N,121,46,W
1960 DATA LIVERPOOL,ENGLAND,53,25,N,2,55,W
1970 DATA LIVINGSTON,CALIFORNIA,37,23,N,120,43,W
1980 DATA LODI,CALIFORNIA,38,8,N,121,16,W
1990 DATA LONG BEACH,CALIFORNIA,33,46,N,118,11,W
2000 DATA LOS BANOS,CALIFORNIA,37,4,N,120,51,W
2010 DATA LOUISVILLE,KENTUCKY,38,16,N,85,45,W
2020 DATA LOVELOCK,NEVADA,40,11,N,118,28,W
2030 DATA LUBBOCK,TEXAS,33,35,N,101,51,W
2040 DATA MOSCOW,SOVIET UNION,55,45,N,37,42,E
2050 DATA MONTREAL,QUEBEC,45,30.5,N,73,33.2,W
2060 DATA MEXICO CITY,MEXICO,19,25.75,N,99,7,W
2070 DATA MIAMI,FLORIDA,25,46.6,N,80,11.5,W
2080 DATA MANILA,PHILIPPINES,14,31,N,121,0,E
2090 DATA MANTECA,CALIFORNIA,37,48,N,121,13,W
2100 DATA MADRID,SPAIN,40,25,N,3,41,W
2110 DATA MADERA,CALIFORNIA,36,57,N,120,3,W
2120 DATA MARYSVILLE,CALIFORNIA,39,9,N,121,35,W
2130 DATA MEDFORD,OREGON,42,19,N,122,52,W
2140 DATA MELBOURNE,AUSTRALIA,37,49,S,144,58,E
2150 DATA MEMPHIS,TENNESSEE,35,8,N,90,3,W
2160 DATA MERCED,CALIFORNIA,37,18,N,120,29,W
2170 DATA MILWAUKEE,WISCONSIN,43,2,N,87,55,W
2180 DATA MINDEN,NEVADA,38,57,N,119,45,W
2190 DATA MINNEAPOLIS,MINNESOTA,44,59,N,93,13,W
2200 DATA MODESTO,CALIFORNIA,37,39,N,120,60,W
2210 DATA MONTEREY,CALIFORNIA,36,37,N,121,55,W
2220 DATA MERCURY,NEVADA,36,40,N,115,59,W
2230 DATA MONTGOMERY,ALABAMA,32,23,N,86,18,W
2240 DATA MORRO BAY,CALIFORNIA,35,22,N,120,51,W
2250 DATA NEW DELHI,INDIA,28,38,N,77,12,E
2260 DATA NEW YORK,NEW YORK,40,45.1,N,73,59.6,W
2270 DATA NAPLES,ITALY,40,51,N,14,17,E
2280 DATA NASHVILLE,TENNESSEE,36,9,N,86,48,W
2290 DATA NEVADA CITY,CALIFORNIA,39,16,N,121,1,W
2300 DATA NEWARK,NEW JERSEY,40,44,N,74,10,W
2310 DATA NIAGARA FALLS,NEW YORK,43,6,N,79,2,W
2320 DATA NIXON,NEVADA,39,50,N,119,21,W
2330 DATA NAPA,CALIFORNIA,38,18,N,122,17,W
2340 DATA NEW ORLEANS,LOUISIANA,29,58,N,90,7,W
2345 DATA OAKDALE,CALIFORNIA,37,46,N,120,51,W
2350 DATA OAKLAND,CALIFORNIA,37,48.05,N,122,15.9,W
2360 DATA OGDEN,UTAH,41,14,N,111,58,W
2370 DATA OKLAHOMA CITY,OKLAHOMA,35,28,N,97,32,W
2380 DATA OAKRIDGE,OREGON,43,45,N,122,28,W
2390 DATA ORLANDO,FLORIDA,28,32,N,81,23,W
2400 DATA PARIS,FRANCE,48,50.2,N,2,20.2,E
2410 DATA PAGO PAGO,AMERICAN SAMOA,14,16,S,170,42,W
2420 DATA PAHRUMP,NEVADA,36,12,N,115,59,W
2430 DATA PALMER,ALASKA,61,36,N,149,7,W
2440 DATA PALM SPRINGS,CALIFORNIA,33,50,N,116,33,W
2450 DATA PALO ALTO,CALIFORNIA,37,27,N,122,9,W
2460 DATA PARADISE,CALIFORNIA,39,46,N,121,37,W
2470 DATA PASADENA,CALIFORNIA,34,9,N,118,9,W
2480 DATA PASO ROBLES,CALIFORNIA,35,38,N,120,41,W
2485 DATA PATTERSON,CALIFORNIA,37,28,N,121,7,W
2490 DATA PERTH,AUSTRALIA,31,56,S,115,50,E
2500 DATA PHILADELPHIA,PENNSYLVANIA,39,57,N,75,7,W
2510 DATA PHOENIX,ARIZONA,33,27,N,112,5,W
2520 DATA PITTSBURGH,PENNSYLVANIA,40,26,N,80,0,W
2525 DATA PORTOLA,CALIFORNIA,39,48,N,120,28,W
2530 DATA PORTLAND,OREGON,45,33,N,122,36,W
2540 DATA PRINCE GEORGE,BRITISH COLUMBIA,53,55,N,122,45,W
2550 DATA PROVIDENCE,RHODE ISLAND,41,50,N,71,25,W
2555 DATA PYRAMID LAKE,NEVADA,39,51,N,119,25,W
2560 DATA QUEENSTOWN,NEW ZEALAND,45,2,S,168,40,E
2570 DATA QUINCY,CALIFORNIA,39,56,N,120,57,W
2580 DATA RENO,NEVADA,39,31,N,119,48,W
2590 DATA RIO DE JANEIRO,BRAZIL,22,55,S,43,12,W
2595 DATA RIPON,CALIFORNIA,37,44,N,121,7,W
2600 DATA RALEIGH,NORTH CAROLINA,35,47,N,78,39,W
2610 DATA RED BLUFF,CALIFORNIA,40,11,N,122,15,W
2620 DATA REDDING,CALIFORNIA,40,35,N,122,24,W
2630 DATA REGINA,SASKATCHEWAN,50,25,N,104,39,W
2635 DATA RIVERBANK,CALIFORNIA,37,44,N,120,56,W
2640 DATA RIVERSIDE,CALIFORNIA,33,59,N,117,22,W
2650 DATA ROANOKE,VIRGINIA,37,16,N,79,57,W
2660 DATA ROCHESTER,NEW YORK,43,10,N,77,36,W
2665 DATA ROGUE RIVER,OREGON,42,26,N,123,10,W
2670 DATA ROME,ITALY,41,54,N,12,29,E
2680 DATA ROSEBURG,OREGON,43,13,N,123,20,W
2690 DATA ROSEVILLE,CALIFORNIA,38,45,N,121,17,W
2700 DATA SAN FRANCISCO,CALIFORNIA,37,46.6,N,122,24.7,W
2710 DATA SYDNEY,AUSTRALIA,33,52,S,151,12,E
2720 DATA SACRAMENTO,CALIFORNIA,38,3,N,121,56,W
2730 DATA SALT LAKE CITY,UTAH,40,46,N,111,58,W
2740 DATA SAN DIEGO,CALIFORNIA,32,42.9,N,117,9.35,W
2750 DATA ST. LOUIS,MISSOURI,38,38,N,90,11,W
2760 DATA ST. PAUL,MINNESOTA,44,58,N,93,7,W
2770 DATA SALEM,OREGON,44,57,N,123,1,W
2780 DATA SALINAS,CALIFORNIA,36,40,N,121,39,W
2790 DATA SAN ANTONIO,TEXAS,29,28,N,98,31,W
2800 DATA SAN BERNARDINO,CALIFORNIA,34,6,N,117,17,W
2810 DATA SAN CLEMENTE,CALIFORNIA,33,26,N,117,37,W
2820 DATA SAN FERNANDO,CALIFORNIA,34,17,N,118,26,W
2830 DATA SAN JOSE,CALIFORNIA,37,20,N,121,53,W
2840 DATA SAN LEANDRO,CALIFORNIA,37,43,N,122,9,W
2850 DATA SAN LUIS OBISPO,CALIFORNIA,35,17,N,120,40,W
2860 DATA SAN MATEO,CALIFORNIA,37,35,N,122,19,W
2870 DATA SAN RAFAEL,CALIFORNIA,37,59,N,122,31,W
2880 DATA SANTA ANA,CALIFORNIA,33,43,N,117,54,W
2890 DATA SANTA BARBARA,CALIFORNIA,34,25,N,119,42,W
2900 DATA SANTA CRUZ,CALIFORNIA,36,58,N,122,1,W
2910 DATA SANTA FE,NEW MEXICO,35,42,N,106,57,W
2920 DATA SANTA MARIA,CALIFORNIA,34,57,N,120,26,W
2930 DATA SANTA MONICA,CALIFORNIA,34,1,N,118,30,W
2940 DATA SANTA ROSA,CALIFORNIA,38,26,N,122,43,W
2950 DATA SANTIAGO,CHILE,33,27,S,70,40,W
2960 DATA SARASOTA,FLORIDA,27,20,N,82,34,W
2970 DATA SAVANNAH,GEORGIA,32,4,N,81,5,W
2980 DATA SCOTTSDALE,ARIZONA,40,6,N,79,35,W
2990 DATA SEATTLE,WASHINGTON,47,36,N,122,20,W
3000 DATA SEOUL,SOUTH KOREA,37,33,N,126,58,E
3010 DATA SHREVEPORT,LOUISIANA,32,30,N,93,45,W
3020 DATA SONORA,CALIFORNIA,37,59,N,120,23,W
3030 DATA SOUTH LAKE TAHOE,CALIFORNIA,38,57,N,119,57,W
3040 DATA SPARKS,NEVADA,39,32,N,119,45,W
3050 DATA SPOKANE,WASHINGTON,47,40,N,117,23,W
3060 DATA SPRINGFIELD,OREGON,44,3,N,123,1,W
3070 DATA STATELINE,NEVADA,38,57,N,119,57,W
3080 DATA STOCKTON,CALIFORNIA,37,57,N,121,17,W
3090 DATA SUSANVILLE,CALIFORNIA,40,25,N,120,39,W
3100 DATA SYRACUSE,NEW YORK,43,3,N,76,9,W
3110 DATA TOKYO,JAPAN,35,45,N,139,45,E
3120 DATA TACOMA,WASHINGTON,47,15,N,122,27,W
3130 DATA TALLAHASSEE,FLORIDA,30,25,N,84,16,W
3140 DATA TAMPA,FLORIDA,27,57,N,82,27,W
3150 DATA TEMPE,ARIZONA,33,25,N,111,56,W
3160 DATA TIJUANA,MEXICO,32,32,N,117,1,W
3170 DATA TOLEDO,OHIO,41,39,N,83,32,W
3180 DATA TONOPAH,NEVADA,38,4,N,117,14,W
3190 DATA TORONTO,ONTARIO,43,39,N,79,23,W
3200 DATA TRACY,CALIFORNIA,37,44,N,121,25,W
3210 DATA TRENTON,NEW JERSEY,40,13,N,74,45,W
3220 DATA TRUCKEE,CALIFORNIA,39,20,N,120,11,W
3230 DATA TULARE,CALIFORNIA,36,13,N,119,21,W
3240 DATA TULSA,OKLAHOMA,36,9,N,95,58,W
3250 DATA TUCSON,ARIZONA,32,13,N,110,58,W
3260 DATA TURLOCK,CALIFORNIA,37,30,N,120,51,W
3270 DATA TOPEKA,KANSAS,39,3,N,95,41,W
3280 DATA VACAVILLE,CALIFORNIA,38,21,N,121,59,W
3290 DATA VALDEZ,ALASKA,61,7,N,146,16,W
3300 DATA VALLEJO,CALIFORNIA,38,7,N,122,14,W
3310 DATA VANCOUVER,BRITISH COLUMBIA,49,16,N,123,7,W
3320 DATA VENICE,ITALY,45,27,N,12,21,E
3330 DATA VERDI,NEVADA,39,31,N,119,59,W
3340 DATA VIENNA,AUSTRIA,48,13,N,16,20,E
3350 DATA VIRGINIA CITY,NEVADA,39,19,N,119,39,W
3360 DATA WASHINGTON,D.C.,38,53.85,N,77,.55,W
3370 DATA WACO,TEXAS,31,55,N,97,8,W
3380 DATA WADSWORTH,NEVADA,39,38,N,119,17,W
3390 DATA WARSAW,POLAND,52,15,N,21,0,E
3395 DATA WATERFORD,CALIFORNIA,37,38,N,120,46,W
3397 DATA WEED,CALIFORNIA,41,25,N,122,23,W
3400 DATA WELLS,NEVADA,41,7,N,114,58,W
3410 DATA WENDOVER,NEVADA,40,44,N,114,2,W
3420 DATA WHITEHORSE,YUKON,60,43,N,135,3,W
3430 DATA WICHITA,KANSAS,37,41,N,97,20,W
3440 DATA WILMINGTON,DELAWARE,39,44,N,75,33,W
3450 DATA WINNEMUCCA,NEVADA,40,58,N,117,44,W
3460 DATA WINNIPEG,MANITOBA,49,53,N,97,9,W
3465 DATA WOODLAND,CALIFORNIA,38,41,N,121,46,W
3470 DATA YAKIMA,WASHINGTON,46,36,N,120,31,W
3480 DATA YERINGTON,NEVADA,38,59,N,119,10,W
3490 DATA YREKA,CALIFORNIA,41,44,N,122,38,W
3500 DATA YUBA CITY,CALIFORNIA,39,8,N,121,37,W
3510 DATA YUMA,ARIZONA,32,43,N,114,37,W
3520 DATA XXX,,,,,,,
63000 REM    CONNECT BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END